home *** CD-ROM | disk | FTP | other *** search
- /* Slider.rexx */
-
- IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
- IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
- SAY 'Kann die <tritonrexx.library> nicht öffnen!'
- EXIT(10)
- END
- END
-
- windowtags = WindowID(1),
- WindowTitle('Slider'),
- 'VertGroupA',
- 'Space',
- 'HorizGroupAC',
- 'Space',
- TextID("_Slider",1),
- 'Space',
- SliderGadget(1,100,50,1),
- 'Space',
- TextID('50',2) 'TRAT_MinWidth 3',
- 'Space',
- 'EndGroup',
- 'Space',
- 'EndGroup',
- 'EndProject'
-
- app = TR_CREATEAPP('TRCA_Name Slider')
-
- IF app ~= '00000000'x THEN DO
-
- window = TR_OPENPROJECT(app,windowtags)
-
- IF window ~= '00000000'x THEN DO
- ende = 0
-
- DO WHILE ende ~= 1
- CALL TR_WAIT(app,'')
-
- DO WHILE TR_HANDLEMSG(app,'event')
- IF event.trm_class = 'TRMS_NEWVALUE' THEN DO
- SELECT
- WHEN event.trm_id = 1 THEN DO
- SAY 'Nummer:' event.trm_data
-
- CALL TR_SETATTRIBUTE(window,2,'TRAT_Text',event.trm_data)
- END
-
- OTHERWISE
- NOP
- END
- END
-
- IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN DO
- SAY 'Nummer war:' TR_GETATTRIBUTE(window,1,'TRAT_Value')
-
- ende = 1
- END
- END
- END
-
- CALL TR_CLOSEPROJECT(window)
- END
-
- CALL TR_DELETEAPP(app)
- END
-
- EXIT(0)
-